BCI NET 2/BCI NET 2.iso/archives/programming/languages/obrn-a_1.5_up3.lha/src_upd3.lha/source/ol/OLStrings.mod

Text File | 1995-03-13 | 5.6 KB | 148 lines

<* STANDARD- *> <* MAIN- *> <* INITIALISE- *>

MODULE OLStrings;
(****************************************************************

   This file was created automatically by `FlexCat 1.5'
   Do NOT edit by hand!
   Oberon-A source description C 1994 by Albert Weinert
   Using with Oberon-A Interfaces for AmigaOS Release 3.1
   Modified for Oberon-A 1.5 by Frank Copeland

   Application: OLStrings
   Language   : "english"
   Version    : 1
   Description: OBERON-A:Catalogs/OLStrings.cd

****************************************************************)

IMPORT
  lo := Locale, e := Exec, u := Utility, y := SYSTEM;

CONST
  builtinlanguage = "english";
  version = 1;

CONST
  msg1* = 0;
  msg2* = 1;
  msg3* = 2;
  msg4* = 3;
  msg5* = 4;
  msg6* = 5;
  msg7* = 6;
  msg8* = 7;
  msg9* = 8;
  msg10* = 9;
  msg11* = 10;
  msg12* = 11;
  msg13* = 12;
  msg14* = 13;
  msg15* = 14;
  msg16* = 15;
  msg17* = 16;
  msg18* = 17;
  msg19* = 18;
  msg20* = 19;
  msg21* = 20;
  msg22* = 21;
  msg23* = 22;
  msg24* = 23;
  msg25* = 24;
  msg26* = 25;
  msg27* = 26;
  msg28* = 27;
  msg29* = 28;

TYPE
  AppString = RECORD;
     id  : LONGINT;
     str : e.LSTRPTR;
  END;
  AppStringArray = ARRAY 29 OF AppString;

VAR
  AppStrings : AppStringArray;
  catalog : lo.CatalogPtr;

  PROCEDURE SetStrings;
    BEGIN
      AppStrings[0].id := msg1; AppStrings[0].str := y.ADR( " !! Could not open preferences file '%s'\n" );
      AppStrings[1].id := msg2; AppStrings[1].str := y.ADR( " !! Too many search paths\n" );
      AppStrings[2].id := msg3; AppStrings[2].str := y.ADR( " !! SYMSEARCH directory '%s' does not exist\n" );
      AppStrings[3].id := msg4; AppStrings[3].str := y.ADR( " !! OBJSEARCH directory '%s' does not exist\n" );
      AppStrings[4].id := msg5; AppStrings[4].str := y.ADR( " !! WITHPATH directory '%s' does not exist\n" );
      AppStrings[5].id := msg6; AppStrings[5].str := y.ADR( " !! PROGPATH directory '%s' does not exist\n" );
      AppStrings[6].id := msg7; AppStrings[6].str := y.ADR( " !! Too many extensions\n" );
      AppStrings[7].id := msg8; AppStrings[7].str := y.ADR( "See OL.doc for conditions of use\n" );
      AppStrings[8].id := msg9; AppStrings[8].str := y.ADR( " !! Could not create .with file name\n" );
      AppStrings[9].id := msg10; AppStrings[9].str := y.ADR( "\x9B\x4B !! Name too long in '%s'\n" );
      AppStrings[10].id := msg11; AppStrings[10].str := y.ADR( "\x9B\x4B !! Could not open '%s'\n" );
      AppStrings[11].id := msg12; AppStrings[11].str := y.ADR( "\x9B\x4B !! Bad tag in symbol file '%s'\n" );
      AppStrings[12].id := msg13; AppStrings[12].str := y.ADR( "\x9B\x4B !! Bad modAnchor in symbol file '%s'\n" );
      AppStrings[13].id := msg14; AppStrings[13].str := y.ADR( "\x9B\x4B !! Bad name in symbol file '%s'\n" );
      AppStrings[14].id := msg15; AppStrings[14].str := y.ADR( "\x9B\x4B !! Bad key in symbol file '%s'\n" );
      AppStrings[15].id := msg16; AppStrings[15].str := y.ADR( "\x9B\x4B !! Could not find object file for module '%s'\n" );
      AppStrings[16].id := msg17; AppStrings[16].str := y.ADR( "\x9B\x4B !! Could not find symbol file for module '%s'\n" );
      AppStrings[17].id := msg18; AppStrings[17].str := y.ADR( "\x9B\x4B !! Bad key in module '%s'\n" );
      AppStrings[18].id := msg19; AppStrings[18].str := y.ADR( "\x9B\x4B !! Could not create '%s'\n" );
      AppStrings[19].id := msg20; AppStrings[19].str := y.ADR( " !! Error attempting to run '%s'\n" );
      AppStrings[20].id := msg21; AppStrings[20].str := y.ADR( "\x9B\x4B !! Could not find object file '%s'\n" );
      AppStrings[21].id := msg22; AppStrings[21].str := y.ADR( " !! Could not create program file name\n" );
      AppStrings[22].id := msg23; AppStrings[22].str := y.ADR( " !! Too many arguments: select only one argument\n" );
      AppStrings[23].id := msg24; AppStrings[23].str := y.ADR( " !! Arguments ALINK, BLINK and DLINK are mutually exclusive\n" );
      AppStrings[24].id := msg25; AppStrings[24].str := y.ADR( " !! Arguments VERBOSE and QUIET are mutually exclusive\n" );
      AppStrings[25].id := msg26; AppStrings[25].str := y.ADR( " !! Arguments MAKEICONS and NOICONS are mutually exclusive\n" );
      AppStrings[26].id := msg27; AppStrings[26].str := y.ADR( " !! Could not create icon for '%s'\n" );
      AppStrings[27].id := msg28; AppStrings[27].str := y.ADR( " !! Could not obtain icon\n" );
      AppStrings[28].id := msg29; AppStrings[28].str := y.ADR( " !! Too few arguments: select exactly one argument\n" );
    END SetStrings;

  PROCEDURE CloseCatalog*();
    BEGIN
      IF catalog # NIL THEN lo.CloseCatalog (catalog); catalog:=NIL END;
   END CloseCatalog;

  PROCEDURE OpenCatalog*(loc:lo.LocalePtr; language:ARRAY OF CHAR);
    VAR Tag : ARRAY 4 OF u.TagItem;
    BEGIN
      CloseCatalog();
      IF (catalog = NIL) & (lo.base # NIL) THEN
        Tag[0].tag := lo.builtInLanguage; Tag[0].data := y.ADR( builtinlanguage );
        Tag[1].tag := u.ignore;           Tag[1].data := y.ADR( language );
        Tag[2].tag := lo.version;         Tag[2].data := version;
        Tag[3].tag := u.done;

        IF language # "" THEN
          Tag[1].tag:= lo.language;
        END;
        catalog := lo.OpenCatalogA (loc, "OLStrings.catalog", Tag);
      END;
    END OpenCatalog;

  PROCEDURE GetString* (num: LONGINT): e.LSTRPTR;
    VAR
      i: LONGINT;
      default: e.LSTRPTR;
    BEGIN
      i := 0; WHILE (i < 29) & (AppStrings[i].id # num) DO INC (i) END;

      IF i # 29 THEN
        default := AppStrings[i].str;
      ELSE
        default := NIL;
      END;

      IF catalog # NIL THEN
        RETURN lo.GetCatalogStr (catalog, num, default^);
      ELSE
        RETURN default;
      END;
    END GetString;

BEGIN
  catalog := NIL;
  SetStrings;
END OLStrings.